VERSION 5.00
Object = "{736A8444-E374-41A8-B526-1B07FD2F3F5B}#1.0#0"; "BLacKPeaRLOCX.ocx"
Begin VB.Form FrmAbout 
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "About BLacK PeaRL"
   ClientHeight    =   7035
   ClientLeft      =   45
   ClientTop       =   405
   ClientWidth     =   8175
   Icon            =   "FrmAbout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7035
   ScaleWidth      =   8175
   StartUpPosition =   2  'CenterScreen
   Begin BLacKPeaRLOCX.BLacKFrame XPFrame3 
      Height          =   5775
      Left            =   240
      TabIndex        =   0
      Top             =   1200
      Width           =   4815
      _ExtentX        =   8493
      _ExtentY        =   10186
      BackColor1      =   16777215
      BackColor2      =   16777215
      Caption         =   "Credit's"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   16777215
      TitleColor2     =   0
      BorderColor     =   49152
      Begin VB.Frame Frame1s 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   5055
         Left            =   120
         TabIndex        =   2
         Top             =   360
         Width           =   4575
         Begin VB.Frame Frame1 
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   0  'None
            Height          =   11640
            Left            =   0
            TabIndex        =   3
            Top             =   4800
            Width           =   4335
            Begin VB.Label Label25 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- H3ro_02"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000000C0&
               Height          =   195
               Left            =   960
               TabIndex        =   26
               Top             =   10440
               Width           =   855
            End
            Begin VB.Label Label24 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- Martabakkare"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00008000&
               Height          =   195
               Left            =   1920
               TabIndex        =   25
               Top             =   9600
               Width           =   1305
            End
            Begin VB.Label Label21 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- f@DiL - Tester"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00C00000&
               Height          =   195
               Left            =   360
               TabIndex        =   24
               Top             =   1800
               Width           =   1380
            End
            Begin VB.Label Label20 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- Allah SWT"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000000FF&
               Height          =   195
               Left            =   0
               TabIndex        =   23
               Top             =   480
               Width           =   1035
            End
            Begin VB.Label Label19 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- All Member [DS] Forum"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   195
               Left            =   1680
               TabIndex        =   22
               Top             =   5760
               Width           =   2070
            End
            Begin VB.Label Label18 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H80000011&
               Height          =   195
               Left            =   2280
               TabIndex        =   21
               Top             =   3720
               Width           =   75
            End
            Begin VB.Label Label17 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- Panic Attack Ak. Malice Taufanie - Designer"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00FF00FF&
               Height          =   195
               Left            =   240
               TabIndex        =   20
               Top             =   960
               Width           =   3930
            End
            Begin VB.Label Label16 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- Sourceforge.net"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00000040&
               Height          =   195
               Left            =   600
               TabIndex        =   19
               Top             =   3600
               Width           =   1500
            End
            Begin VB.Label Label12 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- Bluefame Forum"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00000040&
               Height          =   195
               Left            =   840
               TabIndex        =   12
               Top             =   6360
               Width           =   1485
            End
            Begin VB.Label Label11 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- planetsourcecode.com"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H80000011&
               Height          =   195
               Left            =   960
               TabIndex        =   11
               Top             =   7200
               Width           =   2055
            End
            Begin VB.Label Label10 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "and all other open source project"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00800000&
               Height          =   195
               Left            =   1320
               TabIndex        =   10
               Top             =   11280
               Width           =   2835
            End
            Begin VB.Label Label8 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- All Member BLacK PeaRL Cyber Community "
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00404040&
               Height          =   195
               Left            =   120
               TabIndex        =   9
               Top             =   2640
               Width           =   3870
            End
            Begin VB.Label Label7 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "-  All Member Kaskus.us"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00800080&
               Height          =   195
               Left            =   960
               TabIndex        =   8
               Top             =   8760
               Width           =   2055
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- Suharyadi a.k.a YaDoY666 "
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00008000&
               Height          =   195
               Left            =   480
               TabIndex        =   7
               Top             =   5040
               Width           =   2490
            End
            Begin VB.Label Label5 
               BackStyle       =   0  'Transparent
               Caption         =   "- Setia budi from sourceforge.net  "
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000040C0&
               Height          =   315
               Left            =   1200
               TabIndex        =   6
               Top             =   4320
               Width           =   3375
            End
            Begin VB.Label Label4 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "Thank's To :"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   195
               Left            =   120
               TabIndex        =   5
               Top             =   0
               Width           =   1095
            End
            Begin VB.Label Label13 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "- Mirko Marchese"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H80000011&
               Height          =   195
               Left            =   480
               TabIndex        =   4
               Top             =   7920
               Width           =   1485
            End
         End
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "License"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   3960
         MouseIcon       =   "FrmAbout.frx":B532
         MousePointer    =   99  'Custom
         TabIndex        =   13
         ToolTipText     =   "Tutup credit"
         Top             =   5520
         Width           =   675
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   7080
      Top             =   6960
   End
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame2 
      Height          =   6015
      Left            =   120
      TabIndex        =   14
      Top             =   960
      Width           =   7935
      _ExtentX        =   13996
      _ExtentY        =   10610
      BackColor1      =   0
      BackColor2      =   8421504
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TitleColor1     =   4210752
      TitleColor2     =   0
      TitleGradient   =   2
      TitleHeight     =   500
      BorderColor     =   49152
      Begin VB.Image Image1 
         Height          =   4275
         Left            =   5040
         Picture         =   "FrmAbout.frx":B83C
         Top             =   480
         Width           =   2730
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Credit"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   240
         Left            =   240
         MouseIcon       =   "FrmAbout.frx":F018
         MousePointer    =   99  'Custom
         TabIndex        =   1
         ToolTipText     =   "Lihat credit"
         Top             =   5400
         Width           =   630
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Developed  By Xnemonix"
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   5040
         TabIndex        =   16
         Top             =   4800
         Width           =   2775
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   $"FrmAbout.frx":F322
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   4815
         Left            =   240
         TabIndex        =   15
         Top             =   360
         Width           =   4695
      End
   End
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame3 
      Height          =   735
      Left            =   120
      TabIndex        =   17
      Top             =   120
      Width           =   7935
      _ExtentX        =   13996
      _ExtentY        =   1296
      BackColor1      =   0
      BackColor2      =   8421504
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TextPosition    =   0
      TitleColor1     =   8421504
      TitleColor2     =   0
      TitleGradient   =   2
      BorderColor     =   49152
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Simple GNU GENERAL PUBLIC LICENSE"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   375
         Left            =   0
         TabIndex        =   18
         Top             =   0
         Width           =   7935
      End
   End
   Begin VB.Label TimeBox 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   27
      Top             =   7200
      Width           =   1215
   End
End
Attribute VB_Name = "FrmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2


Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Sub Form_Load()
    FrmAbout.Caption = "About " & NamaAplikasi
    On Error Resume Next
 Dim mp3Filename As String * 1024, mp3Length As String * 30
r = GetShortPathName(App.path & "/Sound/Bukittinggi_Sunshine.mp3", mp3Filename, 1024)
        mp3Filename = Left(mp3Filename, r)
        r = mciSendString("Open " & mp3Filename & " Alias MP3", 0&, 0, 0)
        r = mciSendString("status MP3 length", mp3Length, 30, 0)
       
  r = mciSendString("Play MP3", 0&, 0, 0)

End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
r = mciSendString("close MP3", 0&, 0, 0)
End Sub

Private Sub Label14_Click()
XPFrame3.Visible = False
End Sub

Private Sub Label15_Click()
XPFrame3.Visible = True
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()

Dim mp3Position As String * 30
If Frame1.Top = "-11400" Then Frame1.Top = "4920"
    Frame1.Top = Frame1.Top - 10
    On Error Resume Next
    r = mciSendString("Set Mp3 time format milliseconds", 0, 0, 0)
    r = mciSendString("Status MP3 position", mp3Position, 30, 0)
    TimeBox = Format(CLng(mp3Position), "00:0000")
    If TimeBox.Caption = "04:0124" Then
r = mciSendString("Close MP3", 0&, 0, 0)
 Dim mp3Filename As String * 1024, mp3Length As String * 30
r = GetShortPathName(App.path & "/Sound/Bukittinggi_Sunshine.mp3", mp3Filename, 1024)
        mp3Filename = Left(mp3Filename, r)
        r = mciSendString("Open " & mp3Filename & " Alias MP3", 0&, 0, 0)
        r = mciSendString("status MP3 length", mp3Length, 30, 0)
       
  r = mciSendString("Play MP3", 0&, 0, 0)

    End If
End Sub

